structure Tokens =
struct 

exception AddYourCode

datatype token =
	 (* -> *)
	 ARROW of int
       (* . *)
       | DOT of int 
       (* , *)
       | COMMA of int
       (* >= *)
       | GE of int
       | INTCONST of int * int 
       | EOF

fun toString token =
	case token of 
		ARROW (pos) => "-> AT POS:" ^ Int.toString pos 
	  | _ =>
        	  raise AddYourCode

end

